home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_3_part 2 handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.7 KB  |  84 lines
  1. global gMasterData, checkMarks2, balloonSprite
  2.  
  3. on bigButtons thisSprite
  4.   leavePart2()
  5.   case thisSprite of
  6.     3:
  7.       goRace()
  8.     4:
  9.       goSelf()
  10.     5:
  11.       goNonPro()
  12.     6:
  13.       goRoles()
  14.     7:
  15.       stagesIntro()
  16.     8:
  17.       goPlot()
  18.     9:
  19.       goPaper()
  20.   end case
  21. end
  22.  
  23. on firstPart2
  24.   goNarrator(gMasterData, "22")
  25.   go(label("part2") - 1)
  26.   setFingerCursor(#on, [3, 4, 5, 6, 7, 8, 9])
  27.   setCheckMarks()
  28.   puppetSprite(balloonSprite, 1)
  29. end
  30.  
  31. on setUpPart2
  32.   setUserArea(gMasterData, #subMenu)
  33.   go(label("part2"))
  34.   setFingerCursor(#on, [3, 4, 5, 6, 7, 8, 9])
  35.   setCheckMarks()
  36.   puppetSprite(balloonSprite, 1)
  37.   bkgrdMusic(gMasterData)
  38. end
  39.  
  40. on leavePart2
  41.   stopSound2()
  42.   setFingerCursor(#off, [3, 4, 5, 6, 7, 8, 9])
  43.   setPuppetState([15, 21], #c, 0)
  44.   puppetSprite(balloonSprite, 0)
  45.   set the timeoutScript to EMPTY
  46. end
  47.  
  48. on setCheckMarks
  49.   setPuppetState([15, 21], #c, 1)
  50.   set Xart to 15
  51.   set checkpoints to [point(609, 40), point(609, 100), point(609, 160), point(609, 220), point(609, 280), point(609, 340), point(609, 400)]
  52.   repeat with X = 1 to count(checkMarks2)
  53.     if getAt(checkMarks2, X) = 1 then
  54.       set the loc of sprite Xart to getAt(checkpoints, X)
  55.     else
  56.       set the loc of sprite Xart to point(-1000, -1000)
  57.     end if
  58.     set Xart to Xart + 1
  59.   end repeat
  60.   updateStage()
  61.   promptToGoOn()
  62. end
  63.  
  64. on promptToGoOn
  65.   set vTally to 0
  66.   set vCount to count(checkMarks2)
  67.   repeat with vProp = 1 to vCount
  68.     if getAt(checkMarks2, vProp) = 1 then
  69.       set vTally to vTally + 1
  70.     end if
  71.   end repeat
  72.   if vTally > 0 then
  73.     activate(gMasterData)
  74.   end if
  75.   if vTally = vCount then
  76.     set the timeoutLength to 20 * 60
  77.     set the timeoutScript to "clickDummy"
  78.   end if
  79. end
  80.  
  81. on clickDummy
  82.   puppetSound("gobkmain.aif")
  83. end
  84.